unit uFrmBaseManut;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, JvExStdCtrls, JvButton, JvCtrls, JvFooter, JvBaseDlg,
  JvProgressDialog, ExtCtrls, JvExExtCtrls, JvExtComponent;

type
  TFrmBaseManut = class(TForm)
    JvFooter1: TJvFooter;
    btnGravar: TJvFooterBtn;
    btnCancelar: TJvFooterBtn;
    btnExcluir: TJvFooterBtn;
    btnFechar: TJvFooterBtn;
    pnlCima: TPanel;
    pnlBaixo: TPanel;
    Bevel1: TBevel;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnFecharClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmBaseManut: TFrmBaseManut;

implementation

{$R *.dfm}

procedure TFrmBaseManut.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then begin
    Key := #0;
    PerForm(Wm_NextDlgCtl,0,0);
  end;
end;

procedure TFrmBaseManut.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := CaFree;
end;

procedure TFrmBaseManut.btnFecharClick(Sender: TObject);
begin
  Close;
end;

end.
